home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / lrpad / pad.bas < prev    next >
BASIC Source File  |  1995-05-08  |  396b  |  19 lines
  1. Global Result As Variant
  2.  
  3. Function LPAD (A As Variant, B As Variant, C As Integer) As Variant
  4. Dim PadCount As Integer
  5. For PadCount = Len(A) + 1 To C
  6.     A = B + A
  7. Next PadCount
  8. Result = A
  9. End Function
  10.  
  11. Function RPAD (A As Variant, B As Variant, C As Integer) As Variant
  12. Dim PadCount As Integer
  13. For PadCount = Len(A) + 1 To C
  14.     A = A + B
  15. Next PadCount
  16. Result = A
  17. End Function
  18.  
  19.